home *** CD-ROM | disk | FTP | other *** search
/ Star Trek Starfleet Academy Mini Omnipedia / MINI_OMNI.ISO / pc / omni_v2.dxr / 00051_text scroll bar.ls < prev    next >
Encoding:
Text File  |  1996-04-15  |  532 b   |  20 lines
  1. on mouseDown
  2.   global gModeState, oCHROTextSlider, oIndexScroller, gIndxScrollFldK, oTextSlider
  3.   set vloc to the mouseV
  4.   set vloc to the mouseH
  5.   if gModeState = #CHRO then
  6.     set the textStyle of field gIndxScrollFldK to "plain"
  7.     mSlideSlider(oCHROTextSlider)
  8.     repeat while the stillDown
  9.       mSlideSlider(oCHROTextSlider)
  10.     end repeat
  11.     mEndIndexToLine(oIndexScroller)
  12.     hIndexClick(3)
  13.   else
  14.     mSlideSlider(oTextSlider)
  15.     repeat while the stillDown
  16.       mSlideSlider(oTextSlider)
  17.     end repeat
  18.   end if
  19. end
  20.